home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
Z-Misc Series
/
(k)zh.d64
/
choice.proc
< prev
next >
Wrap
Text File
|
2007-03-01
|
940b
|
41 lines
9000 // DELETE "0:CHOICE.PRC"
9010 //
9020 // LIST "CHOICE.PRC"
9030 //
9040 // CBM COMAL-80 VS 0.14
9050 //
9060 // THIS PROCEDURE ALLOWS THE USER
9070 // TO INPUT CHARACTERS FROM KEY-
9080 // BOARD CHOOSING FROM ANSWER$.
9090 // THE PROCEDURE HAS ITS OWN INPUT
9100 // CURSOR.
9110 //
9120 // EXAMPLE OF USE:
9130 //
9140 // PRINT "TYPE 1-4,[RET] ",
9150 // CH(A$,"1234"+CHR$(13))
9160 //
9170 //
9180 PROC CH(REF F$,ANSWER$) CLOSED
9190 DIM P$ OF 1, RON$ OF 1
9200 DIM ROFF$ OF 1, CLT$ OF 1
9210 //
9220 P$:=CHR$(191); RON$:=CHR$(18)
9230 ROFF$:=CHR$(146); CLT$:=CHR$(157)
9240 //
9250 REPEAT
9260 REPEAT
9270 PRINT RON$+P$+ROFF$+CLT$,
9280 F$:=KEY$
9290 PRINT P$+CLT$,
9300 UNTIL F$<>CHR$(0)
9310 OK:=(F$ IN ANSWER$)
9320 UNTIL OK
9330 PRINT F$
9340 //
9350 // PRINT F$,
9360 // USE THIS LINE FOR REPEATED
9370 // INPUT OF SELECTED CHARACTERS.
9380 //
9390 ENDPROC CH